Kobe Plots and Historical Fishing

library(ggplot2)

## Warning: package 'ggplot2' was built under R version 3.4.4

library(here)

## Warning: package 'here' was built under R version 3.4.4

## here() starts at C:/Users/selen/Documents/GitHub/2019GP

library(plotly)

## Warning: package 'plotly' was built under R version 3.4.4

## 
## Attaching package: 'plotly'

## The following object is masked from 'package:ggplot2':
## 
##     last_plot

## The following object is masked from 'package:stats':
## 
##     filter

## The following object is masked from 'package:graphics':
## 
##     layout

library(tidyverse)

## Warning: package 'tidyverse' was built under R version 3.4.4

## -- Attaching packages -------------------------------------------------------------------- tidyverse 1.2.1 --

## v tibble  1.4.2     v purrr   0.2.4
## v tidyr   0.8.0     v dplyr   0.7.8
## v readr   1.1.1     v stringr 1.2.0
## v tibble  1.4.2     v forcats 0.2.0

## Warning: package 'tibble' was built under R version 3.4.3

## Warning: package 'tidyr' was built under R version 3.4.3

## Warning: package 'purrr' was built under R version 3.4.3

## Warning: package 'dplyr' was built under R version 3.4.4

## -- Conflicts ----------------------------------------------------------------------- tidyverse_conflicts() --
## x dplyr::filter() masks plotly::filter(), stats::filter()
## x dplyr::lag()    masks stats::lag()

library(gganimate)
library(ggrepel)

## Warning: package 'ggrepel' was built under R version 3.4.3

library(ggridges)

## Warning: package 'ggridges' was built under R version 3.4.4

## 
## Attaching package: 'ggridges'

## The following object is masked from 'package:ggplot2':
## 
##     scale_discrete_manual

Kobe plots for 14 filtered Geners

## Warning: package 'bindrcpp' was built under R version 3.4.4

How does this change over projected time in MPA and No MPA scenario

Historical fishing effort